home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc2of2-Partner-Edition.iso / ARPL Apps⁄Art 1⁄94 Partner / ARPL Apps_Art 1_94 Partner / background_6025.xml < prev    next >
Encoding:
Extensible Markup Language  |  1993-12-17  |  8.0 KB  |  137 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>6025</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <true /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <true /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3119.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>80</left>
  22.             <top>434</top>
  23.             <right>159</right>
  24.             <bottom>465</bottom>
  25.         </rect>
  26.         <style>transparent</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Quit</name>
  39.         <script>on mouseUpLinkToQuitend mouseUp</script>
  40.     </part>
  41.     <part>
  42.         <id>2</id>
  43.         <type>button</type>
  44.         <visible> <true /> </visible>
  45.         <reserved5> 0 </reserved5>
  46.         <reserved4> 0 </reserved4>
  47.         <reserved3> 0 </reserved3>
  48.         <reserved2> 0 </reserved2>
  49.         <reserved1> 0 </reserved1>
  50.         <enabled> <true /> </enabled>
  51.         <rect>
  52.             <left>200</left>
  53.             <top>434</top>
  54.             <right>279</right>
  55.             <bottom>465</bottom>
  56.         </rect>
  57.         <style>transparent</style>
  58.         <showName> <false /> </showName>
  59.         <highlight> <false /> </highlight>
  60.         <autoHighlight> <true /> </autoHighlight>
  61.         <sharedHighlight> <true /> </sharedHighlight>
  62.         <family>0</family>
  63.         <titleWidth>0</titleWidth>
  64.         <icon>0</icon>
  65.         <textAlign>center</textAlign>
  66.         <font>Chicago</font>
  67.         <textSize>12</textSize>
  68.         <textStyle>plain</textStyle>
  69.         <name>Help</name>
  70.         <script>on mouseUpLinkToHelpend mouseUp</script>
  71.     </part>
  72.     <part>
  73.         <id>3</id>
  74.         <type>button</type>
  75.         <visible> <true /> </visible>
  76.         <reserved5> 0 </reserved5>
  77.         <reserved4> 0 </reserved4>
  78.         <reserved3> 0 </reserved3>
  79.         <reserved2> 0 </reserved2>
  80.         <reserved1> 0 </reserved1>
  81.         <enabled> <true /> </enabled>
  82.         <rect>
  83.             <left>80</left>
  84.             <top>397</top>
  85.             <right>279</right>
  86.             <bottom>428</bottom>
  87.         </rect>
  88.         <style>transparent</style>
  89.         <showName> <false /> </showName>
  90.         <highlight> <false /> </highlight>
  91.         <autoHighlight> <true /> </autoHighlight>
  92.         <sharedHighlight> <true /> </sharedHighlight>
  93.         <family>0</family>
  94.         <titleWidth>0</titleWidth>
  95.         <icon>0</icon>
  96.         <textAlign>center</textAlign>
  97.         <font>Chicago</font>
  98.         <textSize>12</textSize>
  99.         <textStyle>plain</textStyle>
  100.         <name>Main</name>
  101.         <script>on mouseUpLinkToMainend mouseUp</script>
  102.     </part>
  103.     <part>
  104.         <id>8</id>
  105.         <type>button</type>
  106.         <visible> <true /> </visible>
  107.         <reserved5> 0 </reserved5>
  108.         <reserved4> 0 </reserved4>
  109.         <reserved3> 0 </reserved3>
  110.         <reserved2> 0 </reserved2>
  111.         <reserved1> 0 </reserved1>
  112.         <enabled> <true /> </enabled>
  113.         <rect>
  114.             <left>130</left>
  115.             <top>179</top>
  116.             <right>228</right>
  117.             <bottom>283</bottom>
  118.         </rect>
  119.         <style>transparent</style>
  120.         <showName> <false /> </showName>
  121.         <highlight> <false /> </highlight>
  122.         <autoHighlight> <false /> </autoHighlight>
  123.         <sharedHighlight> <true /> </sharedHighlight>
  124.         <family>0</family>
  125.         <titleWidth>0</titleWidth>
  126.         <icon>0</icon>
  127.         <textAlign>center</textAlign>
  128.         <font>Chicago</font>
  129.         <textSize>12</textSize>
  130.         <textStyle>plain</textStyle>
  131.         <name>GuideLoc</name>
  132.         <script></script>
  133.     </part>
  134.     <name>Misc</name>
  135.     <script>on EditQtAttacheglobal gCurMoviePath,gCurDemoTitle,gQTAttacheList,gQTAttachePathsglobal qQTAtLtemp,qQTAtPtempput gQTAttacheList into qQTAtLtempput gQTAttachePaths into qQTAtPtempget windowScript("QuickTime Attache",qQTAtLtemp,1)put line 1 of it into theBtnif theBtn = "Cancel" or theBtn = "" then exit EditQtAttacheput qQTAtLtemp into gQTAttacheListput qQTAtPtemp into gQTAttachePathsend EditQtAttacheon DeleteFromQTAttacheglobal qQTAtLtemp,qQTAtPtempspinCursorget wsGet("QuickTime Attache",4,"Selection")delete line it of qQTAtLtempdelete line it of qQTAtPtempWriteQTAttachewsSet "QuickTime Attache",4,"Text",qQTAtLtempif qQTAtLtemp = "" thenwsSet "QuickTime Attache",7,"Disabled",trueend ifend DeleteFromQTAttacheon updateCount theNumglobal gPresFramesif theNum < 1 then put 1 into theNumput theNum& " of "&gPresFrames into cd fld "SlideNum"end updateCounton boldText theWords,findAllput cd fld "Text" into theTextif findAll is true thenrepeat with z = 1 to number of items of theWordsspinCursorput item z of theWords into thisWordif thisWord is in theText thenput length of thisWord -1 into tLput LineOffsetList(thisWord,theText) into theListrepeat with q = 1 to number of lines of theListget line q of theListset textStyle of char it to (it + tL) of cd fld "Text" to boldend repeatend ifend repeatelserepeat with z = 1 to number of items of theWordsif z mod 8 = 0 then spinCursorput item z of theWords into thisWordif thisWord is in theText thenget offset(return & thisWord,theText)set textStyle of char it to (it + length of thisWord -1) of cd fld "Text" to boldend ifend repeatend ifend boldTextfunction LineOffsetList findStr,searchStrput "" into theListput 0 into lastOffsetput searchStr into temprepeatget offset(findStr,temp)if it = 0 then exit repeatadd it to lastOffsetput lastOffset & return after theListdelete char 1 to it of tempend repeatreturn theListend LineOffsetListon playStill theMovie,theFrame,wdStyle,mLocglobal gCurStillMovie,UserNameif there is not a file theMovie thenput "" into gCurMovie1if userName = "Peter Meyer" thenanswer "‚Äú"& theMovie & "‚Äù was not found."else answer "The QuickTime movie was not found. Please mount the ARPL CD."exit playStillend ifif wdStyle = "" then put "rect" into wdStyleif mLoc = "" then put "Card" into mLocsubtract 1 from theFrame --(QT Movie Frames start at 0)put removePath(theMovie) into tempif temp is not gCurStillMovie then if there is a window gCurStillMovie then close window gCurStillMovieif there is a window gCurStillMovie thenset the CurrTime of window gCurStillMovie to (theFrame&",0")elseMovie theMovie,wdStyle,mLoc,"invisible","Floating"if the result is not "" thenanswer the resultexit to HyperCardend ifspinCursorput removePath(theMovie) into gCurStillMovieset the passMovieClick of window gCurStillMovie to falseset the badge of window gCurStillMovie to falseset the controllerVisible of window gCurStillMovie to falseset the CurrTime of window gCurStillMovie to (theFrame&",0")show window gCurStillMovieend ifend playStillon runDirect tM,mLoc,closeFlag,wdStyle,invisglobal gCurMovie1,gARPLQTAudio,gNarration-- if ":" is not in tM then put moviePath() before tMif there is not a file tM thenput "" into gCurMovie1answer "Movie ‚Äú"&tM & "‚Äù not found. Please mount the CD."exit runDirectend ifspinCursorif there is a window gCurMovie1 thenset CurrTime of window gCurMovie1 to 0send "Play" to window gCurMovie1elseif wdStyle = "" then put "borderLess" into wdStyleif mLoc = "" then put "Card" into mLocMovie tM,wdStyle,mLoc,"invisible","floating"if the result is not "" thenanswer the resultexit to HyperCardend ifspinCursorput removePath(tM) into gCurMovie1if closeFlag = "True" then set closeOnFinish of window gCurMovie1 to trueif gARPLQTAudio = "" then put 256 into gARPLQTAudioif (gNarration = "Text") thenset the audioLevel of window gCurMovie1 to 0if short name of this stack is not Animation() thenset the controllerVisible of window gCurMovie1 to falseend ifelseset the audioLevel of window gCurMovie1 to gARPLQTAudioif there is a bg btn "No Sound" thenset the controllerVisible of window gCurMovie1 to not (hilite of bg btn "No Sound")end ifend ifset the badge of window gCurMovie1 to falseshow cd windowif invis is not true then show window gCurMovie1set the rate of window gCurMovie1 to .01wait 5set the rate of window gCurMovie1 to 1end ifspinCursorend runDirect</script>
  136. </background>
  137.